% V20210224 - 8.4 GW_ADD_IMAGE

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
title$ = GW_ADD_BAR_TITLE$("Image Example")

% Add title to page.
GW_ADD_TITLEBAR(p, title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the IMAGE control:")

% Now add the image control.
GW_ADD_IMAGE(p, "cartman.png")

% Add more descriptive text.
GW_ADD_TEXT(p, ~
 "You can also use an IMAGE control as a BUTTON."+~
 " So you will get feedback when you press it:")

% Now add the next button control.
GW_ADD_IMAGE(p, "cartman.png>pressed")

% Now show the page.
GW_RENDER(p)

DO
  % Wait for user action.
  r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process
 % user actions.

 % Example feedback.
  POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Image example."